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ABSTRACT 



The design and implementation of the NPS LISP programming system 
is described* NPS LISP is an interactive version of LISP 1.5, a so- 
phisticated list processing and symbol manipulation computer language. 
NPS LISP was implemented in PL/ I for operation under the CP/CMS time- 
sharing system on the IBM 360/67 computer. It is an interpretive sys- 
tem patterned after 7090 LISP. Most of the features of 7090 LISP are 
included in NPS LISP. 
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I. INTRODUCTION 



A member of the family of list processing computer languages is the 
highly sophisticated language LISP. The LISP language was first de- 
veloped and implemented at Massachusetts Institute of Technology in con- 
nection with research in Artificial Intelligence. It has since been 
used for symbolic calculations in Differential and Integral Calculus, 
proving theorems in the Predicate Calculus, game playing, and other 
areas of Artificial Intelligence. 

This thesis describes the development and implementation of an on- 
line interactive version of LISP for the IBM 360/67 computer. In order 
to produce a basic LISP system in a reasonably short length of time, it 
was decided to implement an interpreter-oriented LISP system written in 
PL/I. The system would operate under the existing CP/CMS time-sharing 
system. The steps taken to implement NPS LISP-*- were: (1) gather and 

study available literature concerning LISP systems; (2) decide on the 
internal system structure; (3) write the elementary LISP functions; (4) 
write the input and output functions and the interpreter; and (5) write 
additional procedures which give the system the desired capability in 
terms of predefined LISP functions 0 

A basic knowledge of LISP and an understanding of the material in 
the LISP 1.5 Reference Manual [Ref* 2] is essential to a clear under- 
standing of this thesis. The list representation conventions, abbre- 
viations, and descriptive terms contained herein are those found in 
Ref. 2. The reader is assumed to have an elementary knowledge of PL/ I. 

%PS LISP is the name given to this version of LISP 1.5 implemented 
at the Naval Postgraduate School. 
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II. DISCUSSION OF LISP IMPLEMENTATIONS 



Five existing LISP systems were studied prior to beginning the sys- 
tem design of NPS LISP. The systems examined were 7090 LISP, PDP-1 
LISP, Q-32 LISP, M-460 LISP, and BBN 940 LISP. Their designations are 
derived from the type of computer on which each system was implemented. 
During the study of each LISP system, particular attention was given to 
the internal data structure, the method of maintaining variable values 
(bindings), and other features relevant to an interpreter-oriented LISP 
system. Those features related to a particular system’s LISP compiler 
were not examined closely, nor are they discussed in this section. 

The discussion of each LISP system in this section includes some 
general remarks about the system, followed by a description of the in- 
ternal data structure and the variable binding methods. 

A. 7090 LISP 

7090 LISP is a complete and powerful system tjiat was implemented 
on the IBM 7090 at M.I.T. by a group that included John McCarthy, the 
designer of the first LISP programming system [Refs. 1 and 2] . It is 
used as a basis for comparing the other LISP systems discussed in this 
section. The 7090 LISP system accepts as input a pair of S-expres- 
sions on punched cards which are evaluated by the function EVALQUOTE. 
The first S-expression is a function name or definition. The second 
S-expression is a list of arguments of the function. 
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1 . Data Structure 



LISP programs and data are represented in memory by lists. Each 
element of a list in 7090 LISP is represented by a cell which is one 
36-bit computer word. The cell is divided into two 18-bit fields and is 
graphically represented as follows: 



address 



decrement 



17 18 



35 



The left and right portions of the cell are referred to as the CAR 
(contents of the address register) and the CDR (£ontents of the decre- 
ment register), respectively. 

An atomic symbol, or atom, is represented in memory by a spe- 
cial type of cell called an atom header cell followed by a property 
list. Atom header cells are characterized by the presence of the 
constant -1 in the CAR of the cell. The CDR of an atom header cell 
points to the atom's property list. In 7090 LISP, property lists 
contain both information required for system operation and user-de- 
fined properties. Atom print names are stored in a non-list area of 
memory called full word storage. Six characters of a print name are 
packed in a full word. The print name full words are accessed by a 
list of pointers on the property list. Figure 1 is a representation 
of the structure of the atom LISTING which is a function defined by 
the S-expression (LAMBDA (X) X). 

A numerical atom, or number, is represented in 7090 LISP by an 
atom header cell whose CDR points to a full word containing the value 
of the number. 7090 LISP accepts and operates on both fixed-point 
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atom 




FIGURE 1 

THE 7090 LISP FUNCTION LISTING DEFINED BY (LAMBDA (X) X) 
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(integers) and floating point numbers. A tag field in the atom header 
cell specifies the type of number represented. For example, the 7090 
LISP representation of the integer 15 is diagrammed below: 




2. Variable Bindings 



Function definitions in LISP contain the special form LAMBDA 
as the first element in the S-expression definition. In 7090 LISP, 
LAMBDA causes the dummy variables in the function to be bound to their 
corresponding arguments on an association list (A-list). The associa- 
tion list is a list of pairs. Each pair consists of a dummy variable 
and its corresponding argument. 

Suppose, for example, that the following pair of S-expressions 
were input to the system: 



(LAMBDA (X) (CDR X)) ((ABC)) 



The interpreter would recognize LAMBDA and then bind the dummy varia- 
ble X to the list (A B C) on the A-list. Thus, the A-list would be 
((X . (A B C)). When the form (CDR X) is subsequently evaluated, the 
system retrieves (A B C) as the value of X, applies the function CDR, 
and returns (B C). 

Permanent bindings of variables, called zero-level bindings, 
are made on property lists with the indicator APVAL. For example, if 
the atom X has a permanent value of (ABC), its property list would 
appear as illustrated in Figure 2. 
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B. PDP-1 LISP 



PDP-1 LISP was developed by L. Peter Deutsch for the PDP-1 computer 
made by the Digital Equipment Corporation Jjlef. l] . PDP-1 LISP is a 
small flexible system incorporating only a limited number of LISP func- 
tions. However, the system has two significant features 0 First, it 
can operate in as few as 2000 words of core memory. Secondly, it al- 
lows correction of S-expressions previously input to the system. PDP-1 
LISP accepts a single S-expression for evaluation, input on punched 
paper tape or through a teletype keyboard. The S-expression is eval- 
uated by the function EVAL. 

1 . Data Structure 

A LISP cell in PDP-1 LISP is formed from two contiguous 18-bit 
words. Four bits in each word are available for use as tags since only 
14 bits are required for addressing list structure. PDP-1 LISP uses 
the LISP cell for storing all types of data; it does not have a full 
word storage area. 

The structure of PDP-1 LISP atom property lists is essentially 
the same as 7090 LISP property lists. Differences are found in the 
structure of the atom header cells and the manner in which print names 
are stored. The CAR of the atom header cell points to the print name 
while the CDR points to the property list. Print names are stored in 
list structure with three characters packed in the CAR of each list 
element. Figure 3 shows the structure of the atom LISTING, where 
LISTING is a function defined by the S-expression (LAMBDA (U) U) . 
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FIGURE 2 

EXAMPLE OF A 7090 LISP ATOM WITH A PERMANENT VALUE 
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FIGURE 3 

EXAMPLE OF A PDP-1 LISP FUNCTION DEFINED BY (LAMBDA (U) U) 
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2. Variable Bindings 



PDP-1 LISP variable binding techniques are similar to those of 
7090 LISP. That is, LAMBDA causes dummy variables to be bound on an 
association list. Permanent values are placed on property lists after 
the indicator APVAL. 

C. Q-32 LISP 

Q-32 LISP was developed at System Development Corporation for opera- 
tion under SDC*s time-sharing system on the AN/FSQ-32 computer [Ref. 3]. 
Q-32 LISP is a very extensive system that incorporates all but a few of 
the features of 7090 LISP. A principal feature of Q-32 LISP is that it 
is completely compiler-oriented. Thus, all functions are compiled be- 
fore execution. The system evaluates pairs of S-expressions input 
through a remote teletype terminal. As in 7090 LISP, the pair consists 
of a function and a list of arguments. If a function name is input as 
the first S-expression, the compiled code which defines the function is 
applied to the arguments. If the first S-expression contains LAMBDA as 
its first element, it is a function definition. Therefore, it is com- 
piled and then applied to the arguments. 

1. Data Structure 

One 48-bit Q-32 computer word, divided into four parts, forms 
a LISP cell for storing list structure. The prefix, decrement, tag, 
and address occupy bits 0-5, 6-23, 24-29, and 30-47, respectively. It 
should be noted that in other LISP systems discussed here, the decre- 
ment is contained in the right part of the LISP cell and the address 
is in the left part. For consistency, the Q-32 LISP cell will be 
shown as follows: 
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prefix address tag decrement 
0 56 23 24 29 30 



47 



Atom property list structures in Q-32 LISP differ considerably 
in complexity and form from 7090 LISP property lists „ A primary reason 
for this difference is that Q-32 LISP is compiler-oriented rather than 
interpreter-oriented. The atom header cell of a literal atom contains 
an atom flag in the prefix (bit 1=1), along with a CDR pointer to its 
print name and property list. The CAR of the atom header cell is either 
NIL or points to a special binding which is similar to an APVAL binding 
in 7090 LISP. The CAR of the first cell on a property list following 
the atom header cell points to an array containing the print name. The 
remainder of the property list is used only for storing properties de- 
fined by the LISP programmer. The 7090 LISP indicators PNAME, APVAL, 
SUBR, and EXPR are not used in Q-32 LISP. 

Q-32 LISP also utilizes quote cells. The quote cells are used 
to designate atoms and active list structure during garbage collection. 
The CAR of a quote cell points to an atom header cell or a list struc- 
ture. The CDR of a quote cell is always NIL. A reserved region of 
core memory contains the quote cells and literal atom header cells. 

As an example, consider the list structure for a typical atom 
in Q-32 LISP. Referring to Figure 4, assume that the atom ATOMLISTA 
has a zero -level binding to the list (ABC) and that the property J 
has been put on the property list under the indicator PROP. The print 
name of ATOMLISTA is stored in an array in full word storage. The 
first word in the array indicates that the array contains a print name 
(octal 03 in the prefix). The first word also indicates that the print 
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name uses two words of storage (2 in the CDR) and that there is one 
character stored in the last word of the array (1 in the tag). 

The atom header cell of a function name has a CAR pointer to 
the first cell of compiled code for the function. For example, the 
structure of the LISP function EQ is shown in Figure 5. 

The storage of numbers is similar to print names. Numerical 
atom header cells are stored in free storage instead of in the reserved 
area of memory with literal atom header cells. For example, the n umb er 
101 is represented by the structure given in Figure 6. The atom header 
cell of the numerical atom 101 contains 71 in the tag field to indicate 
the number is an integer. The CAR of the atom header cell points to an 
array in full word storage containing the value of the number. The ar- 
ray header contains octal 02 in the prefix indicating a numerical array. 
The number 1 in the CDR specifies that one data word is used. Note that 
the arrays in full word storage are sets of contiguous memory locations. 

The OBLIST is the structure which allows literal atoms to be 
represented uniquely in Q-32 LISP. The OBLIST is a set of 125 contigu- 
ous words in memory which point to a list of pointers to literal atoms. 
It is used by the read routines as a rapid look-up table for atoms to 
determine if they are present in memory. A simple hash coding scheme 
based on the first eight characters of the print name is used to de- 
termine the placement of an atom in the OBLIST. 

2 . Variable Bindings 

Q-32 LISP does not use an association list for maintaining 
variable values bound by LAMBDA. Instead, bindings of dummy variables 
are kept in a pushdown list. Referring to Figure 4, note that zero- 

level bindings are referenced by a CAR pointer in the atom header cell. 
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FIGURE 4 

EXAMPLE OF A Q-32 LISP ATOM WITH A 
PERMANENT VALUE 




FIGURE 5 

STRUCTURE OF THE Q-32 LISP FUNCTION EQ 
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This discussion of variable bindings has been greatly simpli- 
fied. In .actuality, there are other aspects of variable bindings in 
Q-32 LISP which are important if a complete understanding of Q-32 LISP 
is desired. However, these aspects are not covered in this section 
since they are not essential . in an interpreter-oriented system* 



D. M-460 LISP 

M-460 LISP is the name given to the LISP system implemented on the 
UNIVAC M-460 computer at the Air Force Cambridge Research Laboratories 
[Ref. f] . It is compatible with 7090 LISP although there are some 
features not implemented. 

1. Data Structure 

The M-460 LISP cell consists of one 30-bit M-460 computer word. 
Fifteen bit fields are used for both the address and decrement values. 
There are no tag fields in the cell. 

Property lists of literal atoms in M-460 LISP differ in several 
significant ways from those in 7090 LISP. In place of the 7090 LISP 
indicators APVAL, SUBR, and EXPR, property lists in M-460 LISP contain 
a value cell. The first cell on the property list which follows the 
atom header cell contains a CAR pointer to the value cell. The CAR of 
the value cell points to one of the following: (1) a zero-level bind- 

ing; (2) the code for a compiled function; or (3) a LAMBDA expression 
which defines a function. In the case of a compiled function, the 
value cell also contains a CDR pointer to a SETUP routine which stores 
parameters and variable values on the pushdown list. 
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The LISP function CAR is an example of a compiled function. 

The structure of the property list of CAR is shown in Figure 7. The 
function FN defined by the S-expression (LAMBDA (Y) (PRINT Y)) has 
the structure illustrated in Figure 8. Note that the print name is 
stored in a list with one character in the CAR of each list element. 

Numerical atoms are structured in a rather unique fashion in 
M-460 LISP. Numerical atoms are stored in a list structure composed 
of an atom header cell with a CDR pointer to a list of number cells. 
The value of the number is stored in a list containing one to three 
number cells. The CAR of each number cell contains ten significant 
bits and a sign bit. The CDR points to any remaining number cells. 
Note that there is no full word storage in M-460 LISP memory. 

2. Variable Bindings 

In contrast to 7090 LISP, the M-460 LISP system does not have 
an association list for maintaining values of variables. Instead, 
bindings of dummy variables established by LAMBDA are kept on a push- 
down list. Zero-level bindings are referenced by the CAR of the value 
cell on the property list. Suppose, for example, that the atom ATM 
has a zero-level binding to the list (G H I) . The structure of ATM 
is represented in Figure 9. 

E. BBN 940 LISP 

BBN 940 LISP is an upward compatible extension of 7090 LISP im- 
plemented on the SDS 940 computer by Bolt Beranek and Newman, Inc. 
[Refs. 4 and 5 J . BBN LISP includes a number of features which give 
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STRUCTURE OF A Q-32 LISP NUMBER 
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FIGURE 7 

STRUCTURE OF THE M-460 LISP FUNCTION CAR 
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<r function definition 




FIGURE 8 

STRUCTURE OF THE M-460 LISP FUNCTION FN 
DEFINED BY (LAMBDA (Y) (PRINT Y)) 




FIGURE 9 

EXAMPLE OF AN M-460 LISP ATOM WITH A PERMANENT VALUE 
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it extensive on-line capabilities. These features include conditional 
break-points in functions for debugging along with a sophisticated LISP 
editor. The most significant feature, however, is the use of a drum as 
the principal storage device. Careful segmentation of system code, 
arrangement of data in memory by type, and special attention to binding 
of variables contribute to the success of the system. 

The design of BBN 940 LISP is quite different from the other LISP 
systems discussed here. None of the internal system conventions of 
BBN 940 LISP were considered for incorporation into NPS LISP because 
of the system’s use of two level storage and its complex compiler- 
oriented structure. BBN 940 LISP is mentioned here only because of 
its unique features and is not further discussed. 

The study of these various LISP systems provided many specific im- 
plementation ideas for the design of NPS LISP. Features borrowed from 
these LISP systems for NPS LISP are described in the next section. 
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Ill, NPS LISP SYSTEM DESIGN AND IMPLEMENTATION 



The design and implementation of NPS LISP was based on a study of 
the five LISP systems described in Section II. During the course of 
this study, it was found that no LISP system in particular was decidedly 
superior to the others from the standpoint of internal system design. 
However, 7090 LISP is described in greater detail in the available lit- 
erature and it has the distinction of being a development of the origi- 
nal LISP programming system. It was decided, therefore, to model NPS 
LISP after 7090 LISP for both technical and aesthetic reasons. 

The discussion of the design and implementation of NPS LISP in this 
section begins with a description of the internal system conventions 
adopted for list representation, atom property lists, character objects, 
numerical atoms, the OBLIST, and memory organization. Next, is a com- 
plete and detailed description of the NPS LISP interpreter. A short 
discussion of NPS LISP functions and some of their common characteris- 
tics concludes this section. 

A. INTERNAL SYSTEM CONVENTIONS 

The internal structure of NPS LISP resembles 7090 LISP more than 
any other LISP system. However, design features of other systems were 
incorporated into NPS LISP when they appeared to be advantageous , It 
was desired to keep the NPS LISP system structure uncomplicated, yet 
allow for the basic capabilities of 7090 LISP. Thus, the internal 
structure described in this section is a compromise between structural 
simplicity and system sophistication. 
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1. List Representation 



In NPS LISP, lists are represented in memory by a linked list 
structure build from 32-bit computer words. Each cell can be graphi- 
cally represented as follows: 



address 



decrement 



1 16 17 32 



The address and decrement fields of the cell are 16-bit fields whose 
first bit is reserved for use in garbage collection. The maximum size 
of NPS LISP memory is limited to the maximum value representable in 15 
bits --32,767. 

All LISP programs and data, except numbers, are stored in list 
structure. The system does not rely on values being located in succes- 
sive memory cells; instead, the interpreter accesses particular values 
by traversing lists. Since LISP lists are essentially binary trees, 
the list traversing procedures are relatively straightforward. 

2. Atoms and Property Lists 

Atomic symbol representation and property lists in NPS LISP 
correspond closely to those in 7090 LISP. Every atomic symbol is rep- 
resented uniquely. In addition, each atom has a property list created 
when the atom is read. 

Initially, each atom has only its print name on its property 
list. A special type of cell, called an atom header cell, is the 
first cell on a property list. An atom header cell contains -1 in 
its CAR. The CAR of an atom header cell is the only element of list 
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structure containing a negative number. Thus, it is a simple matter to 
determine when an atom has been reached during list traversals by test- 
ing for a value less than zero. The CDR of an atom header points to the 
property list. 

Some properties that are on property lists of literal atoms are 
preceded by special system defined atoms called indicators. The indi- 
cators used by NPS LISP and their meanings are: 

PNAME print name of the atom 

APVAL permanent value of an atom considered as a variable 

SUBR function defined by a PL/ I procedure 

EXPR function defined by an S-expression 

FSUBR special form defined by a PL/I procedure 

FEXPR special form defined by an S-expression 

In addition to the indicators used by the LISP system, the LISP pro- 
grammer may put other indicators on property lists. 

A property list indicator not followed by a property is called 
a flag. Flags indicate a certain property by their presence alone. An 
example of a flag is the trace flag, FLAG. FLAG is put on the property 
list of a function to cause trace information to be printed when the 
function is executed. 

The method of atom print name storage was taken from M-460 LISP. 
An atom print name is stored in a list. The CAR of each cell in the 
list contains the EBCDIC code of one character of the print name. The 
CDR is a pointer to the remainder of the name. For example, the atom 
ABCD is represented in NPS LISP memory as shown in Figure 10. It is 
emphasized that while PNAME and NIL in Figure 10 are pointers to the 
atoms PNAME and NIL respectively, the characters A, B, C, and D are the 
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actual EBCDIC code for those characters. In Figure 10, the computer 
word containing the character A appears as follows, assuming B is con- 
tained in cell 1024: 



A 



1024 



00000000 



10111111 



00000100 00000000 



The binary number 10111111 in the second byte above corresponds to 
decimal 191, the EBCDIC code for the character A* Note that the first 
byte of a print name cell is unused since the first bit is reserved for 
garbage collection* 

The indicators SUBR and FSUBR on an atom property list signal 
that the atom is a function defined by a PL/I procedure. Each PL/I 
coded function is assigned a unique integer number* The interpreter 
uses this number to transfer control at the time of the function call. 
For example, the LISP function CAR has the structure diagrammed in 
Figure 11* The number 2 appearing after SUBR is the unique number as- 
signed to the function CAR* 

Functions defined by S-expressions in NPS LISP have one of the 
indicators EXPR or FEXPR on their property lists* Figure 12 is a dia- 
gram of the function LISTING, where LISTING is defined by the S-expres- 
sion (LAMBDA (X) X) * 

Literal atoms which have a permanent value (zero-level binding) 
have the indicator APVAL on their property lists* If, for example, the 
atom LISTA has a permanent value of (A B C D) , its property list is 
structured as in Figure 13* 

There are three literal atoms in NPS LISP which have themselves 
as values: T, F, and NIL* The atoms T and F can be interpreted as the 
boolean values true and false* NIL is used to terminate a list. 
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FIGURE 10 

STRUCTURE OF AN ATOM IN NPS LISP 






FIGURE 11 

EXAMPLE OF A PL/ I CODED LISP FUNCTION 
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FIGURE 12 

EXAMPLE OF AN NPS LISP FUNCTION DEFINED BY (LAMBDA (X) X) 




FIGURE 13 

EXAMPLE OF AN ATOM IN NPS LISP WITH A ZERO-LEVEL BINDING 
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The property lists for T, F, and NIL are in Figure 14. Note that in 
Figure 14 the value of T is T, the value of F is NIL, and the value of 
NIL is NIL. This may appear confusing, but the interpreter is con- 
structed to evaluate T, F, and NIL to their proper values; the circular 
lists are not a problem here. 

3. Character Objects 

NPS LISP handles special characters in a manner similar to 7090 
LISP. Special characters are characters other than letters and digits. 
The legal special characters, called character objects, have print 
names that are the mnemonic equivalent of their corresponding type- 
writer character, and values which are their EBCDIC codes. For ex- 
ample, the character object RPAR (right parenthesis) has the structure 
given in Figure 15. 

Character objects are not stored in memory with their atom 
header cells in successive memory locations. Instead, they are stored 
as any other literal atom. The unique characteristic of a character 
object is that the value of the object is an EBCDIC code rather than 
a pointer to an atom header or list. The legal character objects and 
their permanent values are listed in Table 1. 

4 . Numbers 

Only integer numbers are allowed in NPS LISP. The manner of 
storing numbers in NPS LISP is similar to that of 7090 LISP. A number 
is an atom that does not have a property list c The CDR of the atom 
header of a numerical atom points to an area of memory called full 
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FIGURE 14 

STRUCTURE OF THE ATOMS T, F, AND NIL 
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FIGURE 15 

STRUCTURE OF A CHARACTER OBJECT IN NPS LISP 



TABLE I 

NPS LISP CHARACTER OBJECTS 



Print Name Permanent Value 



DOLLAR 


$ 


SLASH 


/ 


LPAR 


( 


RPAR 


) 


COMMA 


9 


PERIOD 


m 


PLUS 


+ 


DASH 


- 


STAR 


* 


BLANK 


blank 


EQSIGN 


m 
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word storage. The value of the number is stored in full word storage 
as a signed binary integer. For example, the number 255 has the follow- 
ing representation: 



-1 

Numbers are not unique in NPS LISP* For example, each occur- 
rence of the number 5 in the list (1 5 2 5) is represented by a sep- 
arate atom header cell whose CDR points to a different location in full 
word storage. Figure 16 is a diagram of the list (1525) illustrat- 
ing the method of number representation* 

5. The QBLIST 



255 



The object list, or OBLIST, is the structure which permits 
literal atoms to be represented uniquely in memory. The OBLIST con- 
sists of 127 contiguous memory cells each containing a CDR pointer 
to a sub-list. The CAR of each element on a sub-list points to an 
atom that has either been read or is part of the initialized system. 
When atoms are read, a hash code is computed based on the first 
three characters of the atom print name and the length of the print 
name. An atom is placed in the OBLIST according to its hash code -- 
a number between one and 127. The CAR of each cell in the OBLIST 
contains the number of atoms that exist in the system and which hash 
code to the same OBLIST location. 

For example, suppose the atoms F0RM1 and F0RM2 have a com- 
puted hash code of 57. If they are the only atoms in the system 
with this particular hash code, the relevant section of the OBLIST 
and its sub-list is represented in Figure 17. 
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FIGURE 16 

EXAMPLE OF NON-UNIQUE NUMBER STORAGE 
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FIGURE 17 

EXAMPLE OF THE OBLIST STRUCTURE 
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The read routines ensure that multiple references to the same 
atom point to the same atom header cell. Figure 18 shows a multiple 
reference to the atom E in the list (E E F) . 

6 . Organization of Memory 

Since the NPS LISP system was coded in PL/ 1, LISP memory is 
actually an array named FSTOR (free storage) having the attributes 
BINARY FIXED (31) and a dimension of (0:32766), Each LISP cell is one 
element in the FSTOR array. The CAR and CDR of each cell are either 
indexes into the FSTOR array or EBCDIC codes for the print name char- 
acters or character objects, 

NPS LISP differs from other LISP systems discussed in one im- 
portant way: all NPS LISP system functions including the interpreter 

and I/O routines are written in PL/I. Thus, most of the 32K LISP 
memory is available for storing list structure and numbers. 

The OBLIST was placed in the lowest 127 cells of LISP memory 
in order to maintain a reasonable resemblance to a more conventional 
LISP system. That is, FSTOR(l:127) corresponds to the OBLIST, The 
atom structures for all built-in LISP functions and legal character 
objects are created during system initialization. These structures 
occupy approximately the next 1000 cells in FSTOR. The region of 
FSTOR beginning at (approximately) FSTOR(llOO) to the lower limit 
of full word storage is allocated for list structure and is called 
free storage. 

Numbers are stored in full word storage located at the top of 
memory. One cell, FSTOR (32766) . is initially allocated for storing 
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FIGURE 18 

ILLUSTRATION OF UNIQUE REPRESENTATION OF LITERAL ATOMS 
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the first number, Subsequent numbers are placed in FSTOR at lower ad- 
dresses. During the execution of LISP programs, the areas occupied by 
list structure and numbers grow toward each other. The organization of 
NPS LISP memory is illustrated below: 



32766 

BNUM 



FREE 



127 

0 



Numbers 

(occupied) 



Free 

Storage 

(unoccupied) 



List 

Structure 

(occupied) 



OBLIST 



NPS LISP 
MEMORY 



FREE and BNUM are PL/I variables which point to the next available cell 
in free storage and full word storage respectively. 

Another departure from the structure of other LISP systems is 
that NPS LISP does not maintain a pushdown list. Recursive LISP func- 
tions are written as recursive PL/ I procedures. Thus, partial results 
of computations are maintained automatically. S-expressions which de- 
fine recursive functions are evaluated by the recursive PL/ I procedures 
NAPPLY and NEVAL 0 Difficulties may occur in the implementation of the 
garbage collection routines due to the exclusion of the pushdown list. 
Garbage collection is discussed further in Section IV 0 

Once the internal system conventions of NPS LISP were estab- 
lished, a few elementary LISP functions were written and tested to 
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check the validity of the system structure. The interpreter that was 
written, based on the design conventions, is described in the following 
paragraphs . 



B. THE NPS LISP INTERPRETER 

A thorough knowledge of how the interpreter operates is essential 
to a complete understanding of any interpretive LISP system. For this 
reason, the NPS LISP interpreter is described in detail. The reader 
may wish to refer to the listing of the interpreter in Appendix C while 
reading this section, 

The NPS LISP interpreter, a PL/I procedure called NEVALQ, consists 
of a set of PL/I procedures which perform the essential tasks of eval- 
uating S-expressions input to the system. NEVALQ is called by the NPS 
LISP supervisor, LISPA, after two S-expressions have been read. These 
two S-expressions are the two arguments of NEVALQ. The first argument 
is. a function name or function definition; the second argument is a 
list of arguments for the function. The interpreter is patterned after 
the 7090 LISP interpreter and contains the same 7090 LISP functions 
EVALQUOTE, EVAL, APPLY, EVLIS , and EVCON. In addition, the interpreter 
contains procedures required by NPS LISP due to the structure of the 
system. Each of the major interpreter functions is discussed separately 
below. The first function considered is a PL/I procedure vital to the 
operation of NPS LISP, 

1 . The Procedure NPROC 

NPROC is a PL/I procedure that provides the interface between 
the interpreter and the LISP functions coded as PL/l procedures. 
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As mentioned in Section III, each LISP function coded in PL/I has either 
SUBR or FSUBR followed by a unique number on its property list. This 
number is used by NPROC to transfer to the subscripted label variable A. 
The statement in NPROC following A(i) is a call to the corresponding LISP 
function. 

As an example, refer back to Figure 11 where the structure of 
the function CAR is diagrammed. The number 2 following SUBR on CAR's 
property list is the number used by NPROC to transfer to the statement 
with the label A(2) . NPROC also assigns the arguments of LISP func- 
tions to the standard PL/I variables ARG(l), ARG(2) , and ARG (3) . Note 
that this restricts only PL/I coded LISP functions to three arguments. 

The value of NPROC is the value of the LISP function called by NPROC. 

2. EVALQUOTE 

The first few executable statements of NEVALQ, although not 
written as a separate procedure, serve the same purpose as the 7090 
LISP function EVALQUOTE. These statements determine if the first ar- 
gument of NEVALQ is a function with either FEXPR or FSUBR on its prop- 
erty list. If so, the function name is paired with the arguments and 
EVAL is called with a NIL association list. Otherwise, APPLY is called 
with a NIL association list (A-list). 

3. APPLY 



The three primary tasks of APPLY are to (1) apply a function 
to its arguments; (2) bind variables and function names on the A-list 
by evaluating the special forms LAMBDA and LABEL; and (3) evaluate 
functional arguments by detecting the special form FUNARG. The three 
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arguments of APPLY are a function name or definition, a list of argu- 
ments for the function, and the current A-list* Each of the principal 
tasks of APPLY are examined below in the order that they are accomplished. 

Suppose a function name is supplied as the first argument of 
APPLY. First, the property list of the function is searched for a func- 
tion definition* The indicator SUBR appearing on the property list 
means that the function definition is a PL/I procedure and causes con- 
trol to pass to NPROC. The procedure NPROC then calls the proper LISP 
function. If the function has an S-expression definition as indicated 
by EXPR, APPLY is called recursively with the function definition in 
place of the function name. 

Assuming that neither SUBR or EXPR is found on the property 
list of the function name, APPLY searches the A-list for a function 
definition. If one is found, APPLY is called recursively with the 
function definition replacing the function name. If no function defi- 
nition is found on the A-list or property list, the function is unde- 
fined and an error message is printed. 

The first element of a function supplied to APPLY may be one 
of the special forms LAMBDA, LABEL, or FUNARG. The appearance of 
LAMBDA initiates two actions. The list of dummy (local) variables 
following LAMBDA are bound on the A-list to their corresponding ar- 
guments by the LISP function PAIR. Further, the function definition 
is evaluated by EVAL using the modified A-list. When the special 
form LABEL is encountered, the name appearing after LABEL is bound 
to its function definition on the A-list. APPLY is then called with 
the function definition as its first argument. For example, the S- 
expression (LABEL FN (LAMBDA (X) (CDR X))) adds (FN . (LAMBDA (X) 
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(CDR X))) to the A-list and APPLY is called recursively with (LAMBDA (X) 
(CDR X)) as its first argument. In most LISP systems, FUNARG is referred 
to as a device rather than a special form since it is used only within 
the system. When a function has a functional argument, FUNARG ensures 
the correct retrieval of bindings of free variables which occur in the 
functional argument. An excellent discussion of the necessity and opera- 
tion of the FUNARG device is contained in Ref. 1, pages 63-65. 

It may happen that the first argument of APPLY is not in a form 
suitable for evaluation by APPLY. In this case, EVAL evaluates the 
first argument and then APPLY is called recursively with the value of 
EVAL as its first argument. 

4 . EVAL 



The primary purpose of EVAL is to evaluate forms. A form is 
defined as an S-expression consisting of (1) a numerical or literal 
atom; (2) one of the special forms QUOTE, FUNCTION, or COND, followed 
by its arguments; or (3) a function followed by its arguments. EVAL 
requires two arguments --a form to be evaluated and the current A- 
list. EVAL returns an S-expression that is the value of the form. 

The actions taken by EVAL in evaluating a form are described below 
in the order which they occur. 

The first argument of EVAL may be a numerical or literal atom. 
If it is a number, as occurs in the S-expression (CONS 1 2), then EVAL 
merely returns the number as its value. If the first argument is a 
literal atom, it must have been previously bound to a value on either 
its property list or the A-list. EVAL first searches the property 
list of the atom for a zero-level binding under the indicator APVAL. 
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It returns this value if the search is successful. If no APVAL binding 
is found, the A-list is searched from the top for the most recent value 
binding of the atom. If no binding is discovered, an error results and 
an error message is printed. 

The order in which atom values are retrieved is important. Since 
property lists are searched before the A-list for value bindings, a 
zero-level binding always takes precedence over any bindings that are 
on the A-list. The example below illustrates this fact: 

CSET (A (123)) 

(LAMBDA (A B) (CONS A B)) (X Y) - ( (1 2 3) . Y) 

The atom A is given a zero-level binding to the list (1 2 3) by the 
function CSET. When the interpreter recognizes LAMBDA, A and B are 
bound to X and Y on the A-list. As the arguments of CONS are eval- 
uated by EVAL, (1 2 3) is retrieved from the property list of A, and 
Y is obtained as the value of B from the A-list. Thus, the arguments 
of CONS are (1 2 3) and Y. The S-expression ((123) . Y) is returned 
as the value of CONS. 

If the form to be evaluated is not an atom, then it is an S- 
expression whose first atomic element is a special form or function 
name. The special forms recognized by EVAL are QUOTE, FUNCTION, and 
COND. The special form QUOTE causes the element following QUOTE to 
be returned as the value of the S-expression. For example, the list 
(A B C D) is returned as the value of (QUOTE (ABC D)). 

FUNCTION is a special form which indicates that the 'S-expres- 
sion which follows is a functional argument of a function. A list is 
returned consisting of FUNARG, the functional argument, and the cur- 
rent A-list. 
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The special form COND is evaluated by the interpreter function 
EVCON, described later in this section. 

Function names are evaluated after considering special forms. 

A literal atom is assumed to be a function name if it is not one of 
the special forms above. Therefore, the function definition must be 

i ' ' 

determined. First, the property list of the function definition is 
searched for one of the indicators SUBR, FSUBR, EXPR, or FEXPR. If 
SUBR is found, the function has a PL/I definition. Thus, the func- 
tion is evaluated by invoking NPROC after the arguments of the func- 
tion are evaluated by EVLIS. FSUBR indicates that the function 
arguments must be passed directly to NPROC. An S-expression function 
definition is indicated by the presence of EXPR on the property list. 
Consequently, the function is evaluated by APPLY after EVLIS evalua- 
tes the function arguments. If FEXPR is on the property list, the 
function arguments are not evaluated. Instead, a list, comprised of 
the function arguments and the current association list, replaces 
the arguments of the function. APPLY is then called to evaluate the 
function. 

\ y 

Finally, if the first element (the CAR) of the form supplied 
to EVAL is not an atom, then the remainder (the CDR) of the form is 
evaluated by EVLIS. APPLY is then called to evaluate the first 
element of the form. 

5. EVLIS 



EVLIS merely evaluates successive elements of a list by calling 
EVAL, returning a list of the computed values. EVLIS is used to eval- 
uate the arguments of functions prior to application of the function. 
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6. EVCON 



EVCON is the function which evaluates the conditional form COND. 
Each of the arguments of COND is a pair of S-express ions for evaluation. 
The first S-expression of each pair is called the predicate. EVCON 
successively evaluates predicates while they evaluate to F or NIL. When 
a predicate is encountered which evaluates to a value other than F or 
NIL, the second S-expression of this pair is evaluated. The value of 
EVCON is the value of this S-expression. If all of the predicates 
evaluate to F or NIL, the conditional is unsatisfied and an error mes- 
sage is printed. 

7 . Tracing Functions 

It is often desirable to trace the execution of a LISP program 
either for the purpose of debugging or for simply observing the se- 
quence of calls made by the interpreter. The mechanism which enables 
a trace is provided by (1) the LISP function TRACE which places the 
indicator FLAG on the property list of functions; and (2) the inter- 
preter procedure PTRACE which prints the trace information in a read- 
able format. 

The interpreter functions are traced in the following manner. 
When APPLY and EVAL are entered, their property lists are searched 
for the presence of FLAG. If FLAG is found, PTRACE is called to 
print the value of the function. 

Tracing of other LISP functions is handled somewhat differently 
than the interpreter functions. When the function definition of a 
PL/I coded LISP function is determined by either APPLY or EVAL, the 
property list is searched for FLAG. If FLAG is present, the PL/I 
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variable TRACE1 is set equal to T. PTRACE is called if TRAC El equals T 
when NPROC is entered, APPLY and EVAL call PTRACE when FLAG is dis- 
covered on the property list of a function defined by an S-express ion. 

An example of the information printed by trace is contained in Figure 19. 

8. Error Handling 

The NPS LISP interpreter contains no sophisticated error correc- 
tions routines and produces few error diagnostic messages. When an er- 
ror is discovered by the interpreter, a short diagnostic message is 
printed and NIL is returned as the value of the function currently ex- 
ecuting. The interpreter continues evaluating as if NIL is the correct 
value. Thus, the interpreter attempts to evaluate an S-expression com- 
pletely even though an error occurs during execution. A LISP error 
occasionally causes an IBM 360 execution interrupt. As a result, the 
LISP system must be completely initialized and any functions defined 
by the LISP programmer are lost. The five errors detected by the in- 
terpreter are listed and explained in Table II. 

9. Example of Interpreter Execution 

Figure 19 is a trace of the steps taken by the interpreter in 
evaluating the function (LAMBDA (A B) (CONS A B)) applied to the ar- 
guments ((X Y Z) (123)). The arguments to EVALQUOTE were typed in 
by the LISP programmer; all other printed information was typed by 
the NPS LISP system. The following sequence of events takes place: 

(1) The LISP programmer communicates directly with EVALQUOTE; 
therefore, he types in two S-expressions -- a function and a list of 
arguments . 
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CALL EVALQUOTE, ARCS: 

_( LAMBDA (A B) (CONS A B)) ((X Y Z) (1 2 3)) 
CALL APPLY, ARCS: 

(LAMBDA (A B) (CONS A B)) 

((X Y Z) (1 2 3)) 

NIL 

CALL EVAL, ARCS: 

(CONS A B) 

((A X Y Z) (B 1 2 3)) 

CALL EVAL, ARGS: 

A 

((A X Y Z) (B 1 2 3)) 

VALUE OF EVAL IS: 

(X Y Z) 

CALL EVAL, ARGS: 

B 

((A X Y Z) (B 1 2 3)) 

VALUE OF EVAL IS: 

(1 2 3) 

CALL CONS, ARGS: 

(X Y Z) 

(1 2 3) 

VALUE OF CONS IS: 

((X Y Z) 1 2 3) 

VALUE OF EVAL IS: 

((X Y Z) 1 2 3) 

VALUE OF APPLY IS: 

((X Y Z) 1 2 3) 

VALUE IS: 

((X Y Z) 1 2 3) 



FIGURE 19 

EXAMPLE OF A TRACED FUNCTION 



47 



DIAGNOSTIC MESSAGES PRINTED BY THE NPS LISP SYSTEM 
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(2) Since the first argument is not an atom, APPLY is called. 
The arguments of APPLY are the function (LAMBDA (A B) (CONS A B)), the 
list of arguments ((X Y Z) (12 3)), and the NIL A-list. 

(3) APPLY recognizes LAMBDA, binds A to (X Y Z) and B to 

(1 2 3) on the A-list, and calls EVAL. The arguments of EVAL are the 
form (CONS A B) and the A-list ((A X Y Z) (B 1 2 3)). 

(4) EVAL determines that CONS is a SUBR function and then 
evaluates A and B. The values of A and B are retrieved from the 
A-list. 

(5) CONS is applied to its arguments, (X Y Z) and (123), 
and returns ((X Y Z) 123)). 

(6) The computed value is returned to EVAL, APPLY, and 
EVALQUOTE in sequence. 

C. NPS LISP FUNCTIONS 

The NPS LISP system contains all of the elementary functions, log- 
ical connectives, defining and property list functions, table building 
and table reference functions, and list handling functions found in 
7090 LISP. ADD1, SUBl, and NUMBERP are the only arithmetic functions 
implemented for the initial NPS LISP system. Descriptions of all im- 
plemented LISP functions are contained in Appendix A. 

The development of the NPS LISP system spanned a period of five 
months 0 As the system was developed, considerable effort was ex- 
pended to ensure an acceptably short response time. As a result, the 
LISP programmer can expect an almost immediate response when he in- 
puts a pair of S-expressions for evaluation. The fact that the sys- 
tem was programmed in a higher level language, PL/ I, provides major 
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advantages over a system written in machine code: (1) alterations to 

the system may be easily made; (2) the system may be implemented quite 
easily on another computer having a PL/l compiler; and (3) the system 
is self-documenting to some extent. 

Recommendations for incorporating into NPS LISP some unimplemented 
features of 7090 LISP are discussed in the next, and final, section. 
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IV . RECOMMENDAT IONS 



Due to the magnitude of the task of implementing a LISP system, it 
was not possible, or even planned, to initially implement all of the 
features of ~ 7090 LISP. However, the difficult design and lengthy pro- 
gramming tasks are complete, and the basic framework exists for expand 
ing NPS LISP capabilities. Features of 7090 LISP recommended for 
incorporation into the NPS LISP system are discussed in the following 
paragraphs . 

A. GARBAGE COLLECTION 

Garbage collection is the process of reclaiming cells of inactive 
list structure when the free storage list becomes empty. It is one 
of the most significant features of 7090 LISP and desirable for any 
complete LISP system. In 7090 LISP, full word storage is also re- 
claimed during garbage collection. 

When NPS LISP was designed, provisions were made in the cell struc 
ture for garbage collection of list structure. However, no garbage 
collection routines were written for the initial implementation. Bits 
one and 17 of each non-header cell are available for use as tags dur- 
ing the marking phase of garbage collection. The CAR of atom header 
cells contains -1; consequently, only the seventeenth bit of atom 
header cells can be used for marking. 

The description of the garbage collection procedure utilized by 
7090 LISP is in Ref. 2. In order to implement this scheme, all NPS 
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LISP functions written as recursive PL/l procedures will require some 
alteration. These functions must be rewritten to utilize a pushdown 
list for storing the partial results of computations. Otherwise, any 
list structures created by these functions are lost if garbage collec- 
tion occurs during their execution. Functions similar to the 7090 LISP 
functions SAVE and UNSAVE could be written to maintain the pushdown 
list. 

An alternative to rewriting the NPS LISP functions is available, 
however. A statement could be inserted in the LISP supervisor, LISPA, 
which prints a warning when the free storage list is dangerously close 
to becoming empty. When this message is seen by the LISP programmer, 
he then explicitly calls the garbage collection routine by typing a 
pair of S-expressions such as RECLAIM () . This solution is not as 
efficient or foolproof as conventional garbage collection methods; 
however, it provides a limited garbage collector with a minimum of 
programming effort. 

B. ARITHMETIC FUNCTIONS 

Three arithmetic functions are defined in NPS LISP -- NUMBERP, ADD1, 
and SUB1. The extensive arithmetic capabilities of 7090 LISP were not 
initially implemented for NPS LISP since they were not considered es- 
sential to the system operation. The implementation of most of the 
7090 LISP arithmetic functions is not expected to be a major task due 
to the ease with which they may be written in PL/ I. 

The only significant problem which must be solved is the design of 
efficient methods of reading and storing floating point numbers. 
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The largest integer that may be stored in NPS LISP memory is 2^-1, 
Consequently, if two very large integers are multiplied together, a 
fixed point overflow may occur, 

C. FUNCTIONS WITH FUNCTIONAL ARGUMENTS 

The NPS LISP system does not contain the 7090 LISP functions MAP, 
MAPLIST, MAPCAR, or SEARCH. However, they may be defined by the LISP 
programmer through the use of the functions DEFINE and DEFLIST. It is 
recommended that these features be written as PL/ I procedures and 
placed within the procedure NEVALQ since they require access to the 
current association list, 

D. PROG FEATURE 

The PROG feature allows the LISP programmer to write LISP programs 
in a convenient format similar to ALGOL. It was not implemented since 
any program that can be written using PROG can also be written in the 
standard LISP format. All LISP systems discussed in Section II, how- 
ever, have the PROG feature. Thus, it would be desirable to implement 
this feature for NPS LISP, 

The NPS LISP system at the current stage of development permits in- 
vestigations in many areas applicable to list processing and symbol 
manipulation techniques. In addition, the system structure provides 
a good basis for future expanding the capabilities of NPS LISP. 
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APPENDIX A 



FUNCTIONS IN THE NPS LISP SYS TEM 



All LISP functions implemented for NPS LISP are described in this 
appendix. The effect, or result, of most NPS LISP functions is the 
same as the corresponding 7090 LISP function. Any significant differ- 
ences are briefly explained. Each entry in this appendix consists of 
(1) the function name followed by its arguments ; (2) an asterisk if 
the function is equivalent to the corresponding 7090 LISP function; 

(3) either SUBR or FSUBR; (4) an indication if the function is a pred- 
icate or pseudo -function; and (5) a brief description of the function. 
The functions are listed here in the same order as they are in Appen- 
dix A of Ref. 2 to allow easy comparisons to 7090 LISP functions. 

True and false are represented by T and F respectively. 

ELEMENTARY FUNCTIONS 



CAR (x) * SUBR 

The value contained in bits 1-16 of the cell in FSTOR(x) is returned 
as the value of CAR(x). 

CDR(x) * SUBR 

The value represented by bits 17-32 of the cell in FSTOR(x) is re- 
turned as the value of CDR(x). CDR and CAR will always return a 
value even if applied to atomic arguments. The functions CAAR, 

CADR, . . . ,CDDDR are also available as system functions. 

CONS (x,y) SUBR 

The value returned by CONS is a pointer to a cell obtained from the 
free storage list. The CAR of this cell contains x and the CDR of 
the cell contains y. CONS does not call a garbage collection rou- 
tine when the free storage list is exhausted. 
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ATOM (x) 



SUBR 



predicate 



* 



T is returned if x is an atom (i.e., pointer to an atom header); 
otherwise, F is returned by ATOM. Since the sign bit of an atom 
header cell is 1, ATOM tests for a negative value in FSTOR(x). 

EQ(x,y) SUBR predicate 

The value of EQ is T if x and y are the same atoms, and F otherwise. 
EQ is used for comparing numbers as well as literal atoms. 

EQUAL (x,y) SUBR predicate 

If x and y are the same S -express ions , the value of EQUAL is T; 
otherwise, the value is F. This function should not be used for 
comparing numbers. 

LTST(x^,X2, . . . ,x n ) * FSUBR 

The value of LIST is a list of the arguments. 

NULL (x) SUBR predicate 

NULL returns T if x is NIL; otherwise it returns F. In contrast to 
7090 LISP, NIL is not equivalent to zero. 

RPLACA (x,y) * SUBR 

The CAR of x is replaced by y; the value x is returned. 

RPLACD(x,y) * SUBR 

The CDR of x is replaced by y; the value x is returned. RPLACA and 
RPLACD should be used with caution since they permanently alter list 
structure. 

LOGICAL CONNECTIVES 

AND (x-, ,x 0 , . . .x ) FSUBR predicate 

i / n 

The arguments of AND are evaluated in sequence until one of them 
evaluates to F or NIL. The value of AND is F in this case or T if 
all of the arguments evaluate to some value other than F or NIL. 

0R( x i, x 2, • . . , x n ) FSUBR predicate 

The arguments of OR are evaluated in order until one of them eval- 
uates to some value other than F or NIL. The value of OR is T in 
this case or F if all arguments evaluate to F or NIL. 

NOT (x) SUBR predicate 

The value of NOT is T if x is F or NIL; otherwise, the value of 
NOT is F. 
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DEFINING AND PROPERTY LIST FUNCTIONS 



DEFINE (x) * SUBR pseudo- function 

The argument of DEFINE is a list of pairs; each pair consists of a 
function name and an S-expression definition of the function. DEFINE 
puts an EXPR indicator and a pointer to the corresponding function 
definition on the property list of each name. A list of the function 
names is returned. 

DEFLIST(x,i) * SUBR pseudo-function 

This function works like define except that it puts the indicator i 
on the property lists instead of EXPR. DEFLIST can be used to put 
any property on a property list. If either DEFINE or DEFLIST is used 
more than once on the same property list, the most recent property 
under any particular indicator replaces the previous one. For ex- 
ample, if a function is re-defined several times using DEFINE, only 
the most recent definition is on the function's property list. 

ATTRIB(x,y) * SUBR pseudo- function 

The last element of x is changed by ATTRIB to the value y; the value 
returned is y. ATTRIB can be used to attach something onto the end 
of a property list. 

PROP (x,y ,u) SUBR 

The function PROP searches the list x for an element that is EQ to y. 
If such an element is found, the value of PROP is the remainder of 
the list beginning immediately after y. Otherwise, the value of PROP 
is u. The argument u is any S-expression. 

GET (x,y) * SUBR 

GET searches the list x for an element that is EQ to y. The CAR of 
the remainder of the list immediately following y is returned if the 
search is successful. Otherwise, the value of GET is NIL. 

CSET(x,v) * SUBR pseudo -function 

This pseudo-function establishes a zero-level binding of the atom x 
to the value v; it puts the indicator APVAL and a value cell whose 
CAR points to v on the property list of x. The value of CSET is x. 

CSETQ (x,v) * SUBR pseudo -funct ion 

CSETQ is similar to CSET except that it quotes the first argument, 
x, instead of evaluating it. CSETQ cannot be input at the top level 
of EVALQUOTE. That is, the following pair of S-expressions is 
illegal: CSETQ (A (1 2 3)). 
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REMPROP (x,i) 



SUBR 



pseudo-func tion 



This pseudo -function deletes all occurrences of the indicator i and 
its related property from the list x. The value of REMPROP is NIL. 

FLAG(l,i) * SUBR pseudo -function 

The argument 1 is a list of atoms. FLAG puts the flag i on the prop- 

erty list of each atom in list 1. The value of FLAG is NIL. 

REMFLAG (1 , i) * SUBR pseudo-function 

REMFLAG has the opposite effect of FLAG. It removes all occurrences 
of the flag i from the property list of each atom in the list 1 and 
returns NIL. 

TABLE BUILDING AND TABLE REFERENCE FUNCTIONS 
PAIR (x,y) * SUBR 

The function PAIR returns a list of dotted pairs of corresponding 
elements of the lists x and y. 

PAIRLIS (x , y , a) * SUBR 

PAIRLIS acts like PAIR with the additional property that it adds the 
list of pairs to the front of list a. The value of PAIRLIS is the 
modified list a. 

SASSOC (x,y,u) SUBR 

The function SASSOC searches the list of dotted pairs, y, for a pair 
whose first element is x. If such a pair is found, the value of 
SASSOC is this pair. Otherwise, the S -express ion u is returned. 

ASSOC (x,y) SUBR 

ASSOC, like SASSOC, returns the pair on the list y whose first term 

is EQ to x. If no such pair is found, the value of PAIR is NIL. 

SUBST (x , y , z ) * SUBR 

SUBST returns the new S-expression formed by substituting x for all 
occurrences of y in the S-expression z. Note that SUBST does not 
change the S-expression z. 

SUB2 (x,y) SUBR 

SUB2 is similar to ASSOC. It searches the list of pairs x for a 
pair whose first term is EQ to y. SUB2 returns the second term of 
the pair if the search is successful; otherwise, it returns y. 
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SUBLIS (x,y) 



SUBR 



* 

The argument x is a list of dotted pairs of the form ( (u-^ . v^) (u2* 
,..(u n .v n )) and y is an S-expression. SUBLIS returns a new S-expres 
sion formed by replacing all occurrences of any u^ f s in y by their 
corresponding v^ l s. The S-expression y is not altered. 

LIST MANIPULATING FUNCTIONS 

APPEND (x,y) * SUBR 

The function APPEND attaches the list y to the end of a copy of the 
list x and returns the resultant list. 

NCONC (x,y) * SUBR 

NCONG concatenates the lists x and y without copying the list x; it 
returns the combined list. This function utilizes the function 
RPLACD; thus, list structure is permanently altered. 

COPY (x) * SUBR 

The function COPY returns a copy of the list x. 

REVERSE (x) * SUBR 

This function reverses the top level of the list x and returns the 
reversed list. 

MEMBER (x, y) * SUBR predicate 

If the S-expression x is a member of the list y, MEMBER returns T; 
otherwise it returns F. 

LENGTH (x) * SUBR 

The length of the top level of the list x is returned by LENGTH. 

LAST (x) SUBR 

The last element of the list x is returned as the value of LAST. 
EFFACE (x, y) * SUBR 

EFFACE alters the list y by removing from it all occurrences of 
the item x. 

ARITHMETIC FUNCTIONS 

NUMBERP (x) * SUBR predicate 

The predicate NUMBERP returns T if X is a numerical atom and F other 
wise. It utilizes the fact that number values are stored in full 
word storage (i.e., the region of FSTOR above the pointer BNUM) . 



58 



ADDl (x) 



SUBR 



: k 



The argument x must be a numerical atom; if ADD1 (or SUB1) is applied 
to a literal atom, the property list of the literal atom will be lost. 
ADDl adds one (1) to the value of x and returns this new value. 

SUBl (x) * SUBR 

The function SUBl operates similarly to ADDl except that the value of 
(SUB1 X) is X-l. 

INPUT AND OUTPUT FUNCTIONS 

READ Q SUBR pseudo- function 

When READ is executed, the next S -express ion in the input buffer is 
read into the system. READ puts atoms into the OBLIST and creates 
atom property lists. The value of READ is the S-expression read. 

PRINT (x) * SUBR pseudo -function 

The execution of PRINT causes the S-expression x to be printed; the 
value of PRINT is x. 

PRINl (x) * SUBR pseudo -function 

The pseudo-function PRIN1 puts the atom x on the print buffer; the 
print buffer is not printed unless it is full. 

TERPRI () * SUBR pseudo-function 

TERPRI prints the current contents of the print buffer. TERPRI also 
clears the print buffer after printing it and returns NIL. 

FUNCTIONS FOR DEBUGGING 

TRACE (x) * SUBR pseudo- function 

TRACE puts a flag on the property list of each function in the list x 
which causes trace information to be printed when the function is en- 
tered and exited. The argument x must be a list of function names. 

The value of TRACE is NIL. 

UNTRACE (x) * SUBR pseudo-function 

UNTRACE removes the trace flag from the property lists of all function 
names in the list x. The value of UNTRACE is NIL. 

INTERPRETER FUNCTIONS 



APPLY (f n, args , a) * SUBR 

The arguments of APPLY are a function, a list of arguments for the 
function, and the current association list. APPLY applies a func- 
tion to its arguments and returns the resultant value. 
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EVAL (form, a) 



SUBR 



The arguments of EVAL are a form to be evaluated and the current asso- 
ciation list. The value returned by EVAL is the value of the form. 

EVLIS (1 , a) * SUBR 

EVLIS evaluates a list of forms; the list is usually a list of argu- 
ments for a function which are evaluated before the function is ap- 
plied. The arguments of EVLIS are a list of forms for evaluation and 
the current association list. EVLIS returns a list of values of the 
forms . 

EVCON (c , a) SUBR 

The arguments of EVCON are a list of pairs of S -express ions ; for 
each pair, the first element is a predicate while the second element 
is an S-expression that is evaluated if the value of the predicate 
expression is not F or NIL. The value of EVCON is the value of the 
second S-expression in this case. At least one of the predicates 
must evaluate to a value other than F or NIL; otherwise, an error 
results . 
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APPENDIX B 



USING THE NPS LISP SYSTEM 



The NPS LISP system is a PL/I program that runs under control of 
the Cambridge Monitor System (CP/CMS). NPS LISP consists of six ex- 
ternal PL/I procedures which reside on a private user disk file under 
the file names LISPA, LISPB, LISPC, LISPD, LISPE, and LISPP. LISPA is 
the NPS LISP supervisor; it reads two S-express ions , calls EVALQUOTE, 
and prints the value of EVALQUOTE. LISPB contains most of the func- 
tions implemented for NPS LISP. LISPC contains the read routines. 
LISPD is the interpreter, NEVALQ. LISPE is the initialization rou- 
tine, INITIAL, which puts all system functions in memory. LISPP con- 
tains the elementary LISP functions. 

A user of NPS LISP must log on to CP in the usual manner. He then 
must enter an 1 IPL CMS* command and, when CMS is loaded, type 'LISP!. 
(Single quotes are used here to specify what is actually typed by the 
user). This causes system initialization. The system is ready to ac- 
cept input when the terminal types 'CALL EVALQUOTE, ARGS : 1 , skips to 
the next line, and types . 

EVALQUOTE is not called until two complete S -express ions have been 
read. The character is typed if any input line is not complete. 

When EVALQUOTE has completed execution, the terminal types ’VALUE IS : 1 
followed by the value of EVALQUOTE. A listing of a brief session with 
the NPS LISP system follows: 
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I pi cms 

CMS. .VERSION II. 0 - 06/15/69 
lisp 

EXECUTION BEGINS. . . 

NPS LISP INITIALIZING 
CALL EVALQUOTE, ARGS: 

_(lambda (x) .< ) ((this Is an example cf nps lisp)) 
VALUE IS: 

(THIS IS AN EXAMPLE OF NPS LISP) 



CALL EVALQUOTE, ARGS: 

_de / I ne ( ( 

_( itersectlon (lambda (x y) (cond ((null x) nil) 

_ ((member (car x) y) (cond@s (car x) (Intersection 

_ (cdr x) y ) ) ) (t (Intersection (cdr x) y)) ))) 

_j3tom1Ist (lambda (1) (cond ((null 1) t) 

_ ((atom (car 1)) (atomlist (cdr 1))) (t f)))) )) 

V/ UE IS: 

(I TERSECT I ON ATOMLIST) 



CA . EVALQUOTE, ARGS: 

_li ersection ((a b d e j t r s)(t e s a 1 5 j)) 

VAL '• IS: 

(A J T S) 



CALL VALOUOTE, ARGS: 
_atorr 1st ((a b c d e)) 

VALUE S: 

T 



CALL EVA TUCTE, ARGS: 
_atoml!s ((a \ (c) d a)) 
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VALUE IS: 
NIL 



CALL EVALQUOTE, ARCS: 
_cset (Ifsta (a b c d e)) 

VALUE IS: 

LISTA 



CALL EVALOUOTE, ARCS: 

_(1ambda (x) (cons x (cddr llsta))) ((1 2 3)) 

VALUE IS: 

((1 2 3) C D E) 



CALL FVALQUOTE, ARGS: 
_reverse ((a bed e)) 

VALUE IS: 

(E D C B A) 



CALL EVALQUOTE , ARGS: 

_pa I r ((a b c d ) ( 1 2 3 4)) 

VALUE IS: 

((A . 1) (B . 2) (C . 3) (D . 4)) 



CALL EVALQUOTE, ARGS: 
_addl (789) 

VALUE IS: 

790 



CALL EVALQUOTE, ARGS: 

_subst (one 1 (1 2 (4 1) ( ( 7 3 1 3) 1 6)))))))))) 
VALUE IS: 

(ONE 2 (4 ONE) ((7 3 ONE 3) ONE 6)) 



CALL EVALQUOTE, ARGS: 

_end 1 I sp 

EXIT LISP SYSTEM 

R; T=20. 09/27. 54 15.14.33 
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LISP PRIMITIVE (ELEMENTARY) FUNCTIONS */ 
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